package body Strings is

   ---------
   -- "=" --
   ---------

   function "=" (i : Individu; j : Individu) return Boolean is
   begin
      --return Ada.Strings.Equal_Case_Insensitive(i.all, j.all);
      return i.all = j.all;
   end "=";

   ----------
   -- "<=" --
   ----------

   function "<=" (i : Individu; j : Individu) return Boolean is
   begin
      --return Ada.Strings.Equal_Case_Insensitive(i.all, j.all) or Ada.Strings.Less_Case_Insensitive(i.all, j.all);
      return i.all <= j.all;
   end "<=";

   ---------
   -- "=" --
   ---------

   function "=" (u : Cercle; v : Cercle) return Boolean is
   begin
      return u.all = v.all;
   end "=";

   ----------
   -- "<=" --
   ----------

   function "<=" (u : Cercle; v : Cercle) return Boolean is
   begin
      return u.all <= v.all;
   end "<=";

end Strings;
